home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / pc_pad.arc / SPANVERB.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-14  |  3.8 KB  |  78 lines
  1. 10  CLS:KEY OFF:A$=STRING$(48,205)
  2. 20  LOCATE 12,15:PRINT CHR$(201);A$;CHR$(187)
  3. 30  LOCATE 13,15:PRINT CHR$(186);"             SPANISH VERB CONJUGATOR            ";CHR$(186)
  4. 40  LOCATE 14,15:PRINT CHR$(186);"              BY RAOUL L. FERNANDEZ             ";CHR$(186)
  5. 50  LOCATE 15,15:PRINT CHR$(186);"                20 CHATHAM TERRACE              ";CHR$(186)
  6. 60  LOCATE 16,15:PRINT CHR$(186);"              BRIDGEPORT, CONNECTICUT           ";CHR$(186)
  7. 70  LOCATE 17,15:PRINT CHR$(186);" Your comments & suggestions would be welcomed  ";CHR$(186)
  8. 80  LOCATE 18,15:PRINT CHR$(200);A$;CHR$(188)
  9. 90  LOCATE 24,40:PRINT "PRESS ANY KEY TO CONTINUE";
  10. 100  B$=INKEY$:IF B$="" THEN 100
  11. 110  CLS:PRINT
  12. 120  PRINT "THIS PROGRAM CONJUGATES REGULAR SPANISH INFINITIVES INTO ANY OF EIGHT TENSES."
  13. 130  PRINT:PRINT "THE TENSES USED AND THEIR MEANINGS ARE;":PRINT
  14. 140  PRINT "PRESENT...............current action as ";CHR$(34);"I AM HERE";CHR$(34)
  15. 150  PRINT "INDICATIVE PRETERITE..absolute past action as ";CHR$(34);"HE HAS LEFT";CHR$(34)
  16. 160  PRINT "INDICATIVE IMPERFECT..past contingency as ";CHR$(34);"HE WAS HERE WHEN I ARRIVED";CHR$(34)
  17. 170  PRINT "FUTURE................action yet to occur as ";CHR$(34);"I WILL BE HERE";CHR$(34)
  18. 180  PRINT "SUBJUNCTIVE...........future contingency as ";CHR$(34);"I MAY BE HERE";CHR$(34)
  19. 190  PRINT "IMPERATIVE............a command given as ";CHR$(34);"YOU MUST BE HERE";CHR$(34)
  20. 200  PRINT "GERUND................the use of a verb as a noun as ";CHR$(34);"HE IS LOVING";CHR$(34)
  21. 210  PRINT "PAST PARTICIPLE.......the use of a verb as an adjective as ";CHR$(34);"I LOST THE RACE";CHR$(34)
  22. 220  PRINT:PRINT"The verb types recognized are those that end in the dipthongs `ar',`er' and `ir'"
  23. 230  PRINT "ie `comprar'(to buy),`temer' (to fear) and `vivir' (to live)"
  24. 240  LOCATE 24,40:PRINT "PRESS ANY KEY TO CONTINUE";
  25. 250  B$=INKEY$:IF B$="" THEN 250
  26. 260  FLAG=0:CLS:LOCATE 2,1:INPUT "PLEASE ENTER THE VERB TO BE CONJUGATED ";C$
  27. 270  FOR A=1 TO LEN(C$):D$=MID$(C$,A,1):D=ASC(D$):IF D>64 AND D<91 THEN D=D+32
  28. 280  D$=CHR$(D):MID$(C$,A,1)=D$:NEXT
  29. 290  E$=RIGHT$(C$,2):F$=LEFT$(C$,(A-3))
  30. 300  IF E$="er" THEN 390
  31. 310  IF E$="ir" THEN 400
  32. 320  IF E$<>"ar" THEN 330 ELSE 380
  33. 330  BEEP:PRINT "Please check your spelling. If it is correct it means you have probably"
  34. 340  PRINT "entered an irregular verb that is not recognized by the program."
  35. 350  LOCATE 24,40:PRINT "PRESS ANY KEY TO CONTINUE";
  36. 360  B$=INKEY$:IF B$="" THEN 360
  37. 370  GOTO 260
  38. 380  RESTORE 440:GOTO 410
  39. 390  RESTORE 460:GOTO 410
  40. 400  RESTORE 480:GOTO 410
  41. 410  GOSUB 520 'format screen
  42. 420  GOSUB 680 'print root + ending
  43. 430  IF I$="N" OR I$="n" THEN END ELSE 260
  44. 440  DATA o,FOR,aba,as,aste,abas,a,TRON,aba,amos,amos,WIDTHbamos,WIDTHis,asteis,abais,an,aron,aban
  45. 450  DATA arFOR,*,e,arWIDTHs,a,es,arWIDTH,e,e,aremos,emos,emos,arFORis,ad,FORis,arWIDTHn,en,en
  46. 460  DATA o,i,GOSUBa,es,iste,GOSUBas,e,ELSETRON,ELSEa,emos,imos,ELSEamos,FORis,isteis,ELSEais,en,ieron,ELSEan
  47. 470  DATA erFOR,*,a,erWIDTHs,e,as,erWIDTH,a,a,eremos,amos,amos,erFORis,ed,WIDTHis,erWIDTHn,an,an
  48. 480  DATA o,ELSE,ELSEa,es,iste,ELSEas,e,iTRON,ELSEa,imos,imos,ELSEamos,ELSEs,isteis,ELSEais,en,ieron,ELSEan
  49. 490  DATA irFOR,*,a,irWIDTHs,e,as,irWIDTH,a,a,iremos,amos,amos,irFORis,id,WIDTHis,irWIDTHn,an,an
  50. 500  END
  51. 510  'SUBROUTINE TO FORMAT SCREEN
  52. 520  CLS:LOCATE 1,1:PRINT "VERB TO BE CONJUGATED ;";C$
  53. 530  G$=STRING$(80,A$):PRINT G$
  54. 540  LOCATE 3,20:PRINT "PRESENT":LOCATE 3,40:PRINT "INDIC. PRETER":LOCATE 3,60:PRINT "INDIC. IMPERF."
  55. 550  LOCATE 4,1:PRINT "YO (I)":LOCATE 5,1:PRINT "TU (YOU FAMILIAR)"
  56. 560  LOCATE 6,1:PRINT "USTED (YOU FORM.)":LOCATE 7,1:PRINT "NOSOTROS (WE)"
  57. 570  LOCATE 8,1:PRINT "VOSOTROS (YOU PL)"
  58. 580  LOCATE 9,1:PRINT "ELLOS (THEY)"
  59. 590  PRINT G$
  60. 600  LOCATE 11,20:PRINT "FUTURE":LOCATE 11,40:PRINT "IMPERATIVE":LOCATE 11,60:PRINT "SUBJUNCTIVE"
  61. 610  LOCATE 12,1:PRINT "YO (I)":LOCATE 13,1:PRINT "TU (YOU FAMILIAR)"
  62. 620  LOCATE 14,1:PRINT "USTED (YOU FORM.)":LOCATE 15,1:PRINT "NOSOTROS (WE)"
  63. 630  LOCATE 16,1:PRINT "VOSOTROS (YOU PL)":LOCATE 17,1:PRINT "ELLOS (THEY)":
  64. 640  PRINT G$:LOCATE 19,20:PRINT "GERUND":LOCATE 19,40:PRINT "PAST PARTICIPLE"
  65. 650  LOCATE 20,1:PRINT "ALL PERSONS":PRINT G$
  66. 660  LOCATE 22,1:PRINT "* there is no first person form in the imperative tense"
  67. 670  RETURN
  68. 680  FOR X=4 TO 9:FOR Y= 20 TO 60 STEP 20:READ AR$:LOCATE X,Y
  69. 690  PRINT F$+AR$:NEXT :NEXT
  70. 700  FOR X=12 TO 17:FOR Y= 20 TO 60 STEP 20:READ AR$:LOCATE X,Y
  71. 710  PRINT F$+AR$:NEXT :NEXT:GOTO 720
  72. 720  IF E$="ar" THEN 730 ELSE 740
  73. 730  LOCATE 20,20:PRINT F$+"ando":LOCATE 20,40:PRINT F$+"ado":GOTO 750
  74. 740  LOCATE 20,20:PRINT F$+"iendo":LOCATE 20,40:PRINT F$+"ido"
  75. 750  LOCATE 12,40:PRINT "*            "
  76. 760  LOCATE 24,1:INPUT "DO YOU WANT TO TRY ANOTHER VERB (Y or N)",I$
  77. 770  RETURN
  78.